home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 February / EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso / earcd / -recent3 / re_xx.lha / Re_xx / Re_xx.yam < prev   
Text File  |  1999-02-20  |  836b  |  37 lines
  1. /* $VER: Re_xx 1.2 © 1998 - 1999 by Nikola Smolenski <smolensk@eunet.yu>
  2.  
  3. This script allows you to have Re[xx]: again in YAM 2.0!
  4.  
  5. Installation:
  6.  
  7. Copy Re_xx.rexx to YAM:Rexx/
  8.  
  9. In Configuration/Arexx/Before writing a message :
  10. Enter Rexx/Re_xx.yam in 'Script' gadget
  11. Select Arexx for type of command
  12. Turn 'Wait for termination' gadget OFF
  13.  
  14. */
  15.  
  16. options results
  17. address YAM
  18. 'FOLDERINFO STEM f.'
  19. if f.number~=1 then do
  20.     'MAILINFO STEM m.'
  21.     r=upper(word(m.subject,1))
  22.     if r="RE:" then do
  23.         r1=upper(word(m.subject,2))
  24.         if left(r1,3)="RE[" & right(r1,2)="]:" then
  25.             s="Re["substr(r1,4,length(r1)-5)+2"]: "delword(m.subject,1,2)
  26.         else
  27.             s="Re[2]: "delword(m.subject,1,1)
  28.     end
  29.     else do
  30.         if left(r,3)="RE[" & right(r,2)="]:" then
  31.             s="Re["substr(r,4,length(r)-5)+1"]: "delword(m.subject,1,1)
  32.         else
  33.             exit
  34.     end
  35.     'WRITESUBJECT "'s'"'
  36. end
  37.